The Macintosh Demo: Applications/Apple-MacintoshDemoApplicationsCD-1.0-1992.iso/More Information/Personal Press 2.0/PPPouch/AutoCreate/Business ID/_Letter Modern/_Letter Modern

Text File | 1992-06-08 | 3.6 KB | 118 lines | [SGPA/SCPG]

on Build
Set lockscreen to true
put measurements into tempMeasurements
set measurements to inches
newpublication pages 1 columns 0 PageWidth 8.5 ¬
PageHeight 11 pageorientation portrait topmargin 0.5¬
bottommargin 0.5 leftmargin 0.5 rightmargin 0.5

--set  GridSettings to 0.25,0.25
set  DisplayGuides to true
set  DisplayInvisibles to false
set  DisplayNotes to true
set  FacingPages to false
set  displayColorSepCutOuts to false
set  displayGuides to true
set  displayInvisibles to false
set  displayNotes to true
set  facingPages to false
set  gridsnap to false
set  lockGuides to false
set  magneticGuides to true
set  menuHelp to true
set  printColorOptions to false
set  printColorNames to true
set  printCutOuts to true
set  printRegistrationMarks to false
set  showGraphics to true
set  showGrid to false
set  showNoteHeaderDate to true
set  ShowNoteHeaderText to true
set  showNoteHeaderTime to true
set  smartQuotes to true
set  dialogUpdateDelay to normal
set  drawingToolPreference to toolSelected
set  dialogUpdateDelay to normal
set  guidesPreference to front
set  measurements to inches
set  numberFormat to 0.######
set  palettePreference to anywhere
set  printMarksOptions to no
set  printPageOptions to all
set  printTypeOptions to publication
set  view to actual
set  itemDel to ","
set  wordDel to " "
set  lineDel to cr
set  graphicResizePreferences to 300
set  savePubReminder to 15
set  spotColor 1 to 0,0,0
set  spotColor 2 to 65535,65535,65535
set  spotColor 3 to 62167,2134,34028
set  spotColor 4 to 0,32768,4528
set  spotColor 5 to 577,43860,60159
set  spotColor 6 to 56683,2242,1698
set  spotColor 7 to 0,0,54272
set  spotColor 8 to 64512,62333,1327
set linepattern to 1
set fillpattern to 2
set color to 1
set framelinetype to 1
-- **** Object 1 ****
draw Line from 0.5,1.625 to 7.98611111111111111,1.625
set name of object 1 to "Object 1"
set  Locked of object 1 to true
set framelinetype of object 1 to 2
set fillPattern of object 1 to 2
set linePattern of object 1 to 1
set shadowPattern of object 1 to 1
set textWrap of object 1 to none
set  color of object 1 to 1
set  cropRectangle of object 1 to 0,0,7.48611111111111111,0

-- **** Object 2 ****
draw Rectangle from 0.513888888888888889,0.513888888888888889 to 2.04166666666666667,1.48611111111111111
set name of object 2 to "Object 2"
set  Locked of object 2 to false
set framelinetype of object 2 to 2
set fillPattern of object 2 to 2
set linePattern of object 2 to 0
set shadowPattern of object 2 to 1
set textWrap of object 2 to none
set  color of object 2 to 1
set  cropRectangle of object 2 to 0,0,1.52777777777777778,0.972222222222222222

-- **** Object 3 ****
open story "Address"
draw Rectangle from 4.01388888888888889,0.408333333333333333 to 8.01388888888888889,1.66666666666666667
close story
set name of object 3 to "Address, Letterhead A"
set  Locked of object 3 to true
set framelinetype of object 3 to 2
set fillPattern of object 3 to 0
set linePattern of object 3 to 0
set shadowPattern of object 3 to 1
set textWrap of object 3 to none
set  color of object 3 to 1
set  cropRectangle of object 3 to 0,0,0,0

-- **** Object 4 ****
open story "Place Correspondence here"
draw Rectangle from 0.527777777777777778,1.94444444444444444 to 8.01388888888888889,10.9166666666666667
close story
set name of object 4 to "Object 4"
set  Locked of object 4 to false
set framelinetype of object 4 to 2
set fillPattern of object 4 to 2
set linePattern of object 4 to 0
set shadowPattern of object 4 to 1
set textWrap of object 4 to none
set  color of object 4 to 1
set  cropRectangle of object 4 to 0,0,0,0

set measurements to tempMeasurements

publicationSetup columns 1
end Build

    
    <
B
Ï